home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #5 / Amiga Plus CD - 1996 - No. 5.iso / pd / grafik / tgif / frontend.pl < prev    next >
Text File  |  1996-05-30  |  2KB  |  47 lines
  1. %
  2. % Author:      William Chia-Wei Cheng (william@cs.ucla.edu)
  3. %
  4. % Copyright (C) 1992-1993, William Cheng.
  5. %
  6. % Permission limited to the use, copy, modify, and distribute this software
  7. % and its documentation for any purpose is hereby granted by the Author without
  8. % fee, provided that the above copyright notice appear in all copies and
  9. % that both the copyright notice and this permission notice appear in
  10. % supporting documentation, and that the name of the Author not be used
  11. % in advertising or publicity pertaining to distribution of the software
  12. % without specific, written prior permission.  The Author makes no
  13. % representations about the suitability of this software for any purpose.
  14. % It is provided "as is" without express or implied warranty.  All other
  15. % rights (including the right to sell "tgif" and the right to sell derivative
  16. % works of tgif) are reserved by the Author.
  17. %
  18. % THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
  19. % INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
  20. % EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  21. % CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
  22. % USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
  23. % OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  24. % PERFORMANCE OF THIS SOFTWARE.
  25. %
  26. % @(#)$Header: /n/opus/u/guest/william/src/tgif/v3/RCS/frontend.pl,v 3.0 1996/05/06 16:05:15 william Exp $
  27. %
  28.  
  29. % The main predicate exported is:  interface/9.
  30.  
  31. :- abolish(foreign_file/2).
  32. :- abolish(foreign/3).
  33.  
  34. foreign_file('frontend11.o', ['MainLoop','Animate','UpdAttrVal']).
  35.  
  36. foreign('MainLoop', c,
  37.     interface(+string, +string, -string, -string, -string, -string,
  38.     -string, -string, -string)).
  39. foreign('Animate', c,
  40.     interface_animate(+string, +string, +string, +string, -string)).
  41. foreign('UpdAttrVal', c,
  42.     interface_updattr(+string, +string, +string, +string, -string)).
  43.  
  44. :- load_foreign_files(['frontend11.o'], ['-L../../lib','-lX11','-lm']),
  45.     abolish(foreign_file/2),
  46.     abolish(foreign/3).
  47.